home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok58 / sysdis / disass.mod next >
Text File  |  1993-11-04  |  18KB  |  306 lines
  1. (*--------------------------------------------------------------------------
  2.    :Program.     DisAss.mod
  3.    :Autor.       Bernd Preusing, Gerhardstr. 16, D-2200 Elmshorn
  4.    :Copyright.   public domain
  5.    :History.     1.0   02-Okt-88 (Bernd Preusing)
  6.    :History.     1.0.1 23-Aug-91 (Christian Stiens)
  7.    :Language.    Oberon, Assember-Inline-Code
  8.    :Translator.  Amiga Oberon V2.09 [fbs]
  9.    :Contents.    Disassembliere  e i n e n  Befehl nach RECORD Line
  10. ---------------------------------------------------------------------------*)
  11.  
  12. MODULE DisAss;
  13.  
  14. IMPORT sys:SYSTEM,e:Exec;
  15.  
  16. TYPE
  17.  
  18.   CommonLine = STRUCT END;
  19.  
  20.   Line * = STRUCT (dummy: CommonLine)
  21.     l    * : INTEGER;   (* Länge des Strings s *)
  22.     flags* : SET;       (* Bit 0 = 1 : adr gültig für jmp
  23.                            Bit 1 = 1 : pc-relativ adressiert
  24.                            Bit 2 = 1 : kein gültiger Befehl, DC.W *)
  25.     adr  * : e.ADDRESS; (* falls Bit 0 oder 1 gesetzt:
  26.                            angesprochene Adresse (wahre, ohne Offset!) *)
  27.     s    * : ARRAY 132 OF CHAR;
  28.   END;
  29.  
  30.   Line2 * = STRUCT (dummy: CommonLine)
  31.     l    * : INTEGER;   (* Länge des Strings s1+s2 *)
  32.     flags* : SET;       (* Bit 0 = 1 : adr gültig für jmp
  33.                            Bit 1 = 1 : pc-relativ adressiert
  34.                            Bit 2 = 1 : kein gültiger Befehl, DC.W *)
  35.     adr  * : e.ADDRESS; (* falls Bit 0 oder 1 gesetzt:
  36.                            angesprochene Adresse (wahre, ohne Offset!) *)
  37.     s1   * : ARRAY  32 OF CHAR; (* Schein-Adresse, Words.. *)
  38.     s2   * : ARRAY 100 OF CHAR; (* Befehl *)
  39.   END;
  40.  
  41.  
  42. (* $EntryExitCode- *)
  43.  
  44. PROCEDURE Disass*(VAR line{9}:CommonLine; (* Line-Record *)
  45.                   code{8}: e.ADDRESS; (* Adresse des Codes *)
  46.                   offset{0}: LONGINT  (* Code+Offset=Scheinadresse im Listing *)
  47.                  ): e.ADDRESS;        (* Adresse des nächsten Befehls *)
  48. BEGIN
  49.   sys.INLINE(
  50. (*0000*) 048E7H,03F3EH,02840H,07E08H,02009H,00880H,00000H,02240H,
  51. (*0010*) 02008H,00880H,00000H,02040H,02F00H,0D08CH,02400H,07204H,
  52. (*0020*) 06100H,0098CH,033BCH,02020H,07000H,07E28H,07C00H,045FAH,
  53. (*0030*) 00AFEH,03018H,04269H,00002H,06100H,00954H,06726H,023BCH,
  54. (*0040*) 04443H,02E57H,07000H,05847H,06100H,0086CH,013BCH,00024H,
  55. (*0050*) 07000H,05247H,02400H,07202H,06100H,00954H,008E9H,00002H,
  56. (*0060*) 00003H,06066H,0139AH,07000H,05247H,008B1H,00007H,070FFH,
  57. (*0070*) 067F2H,00C31H,00020H,070FFH,06602H,05347H,047FAH,0009AH,
  58. (*0080*) 026CAH,026C8H,026CFH,026C6H,00812H,00004H,06706H,06100H,
  59. (*0090*) 00826H,0600AH,00812H,00005H,06704H,06100H,0087EH,00812H,
  60. (*00A0*) 00006H,06704H,06100H,0084CH,02A7CH,00000H,00000H,047FAH,
  61. (*00B0*) 009C0H,0D7C6H,03213H,048C1H,0D7C1H,04E93H,0247AH,0005AH,
  62. (*00C0*) 02212H,02C0DH,0C286H,0B286H,06638H,013BCH,00000H,07000H,
  63. (*00D0*) 00447H,00008H,03287H,04CDFH,00008H,02403H,09688H,04483H,
  64. (*00E0*) 02042H,0E283H,07E12H,06008H,03418H,07202H,06100H,008C0H,
  65. (*00F0*) 051CBH,0FFF6H,07228H,06100H,00968H,02008H,04CDFH,07CFCH,
  66. (*0100*) 04E75H,07E28H,047FAH,00012H,0245BH,0205BH,02E5BH,02C1BH,
  67. (*0110*) 0588AH,05446H,06000H,0FF1EH,00000H,00000H,00000H,00000H,
  68. (*0120*) 00000H,00000H,00000H,00000H,06100H,0084EH,04881H,048C1H,
  69. (*0130*) 02401H,06100H,00848H,04881H,048C1H,00800H,00003H,06726H,
  70. (*0140*) 00082H,02D28H,04100H,02382H,07000H,023BCH,0292CH,02D28H,
  71. (*0150*) 07004H,0E189H,0E189H,00081H,04100H,02900H,02381H,07008H,
  72. (*0160*) 00647H,0000BH,04E75H,00082H,00000H,04400H,03382H,07000H,
  73. (*0170*) 033BCH,02C44H,07002H,01381H,07004H,05A47H,04E75H,07444H,
  74. (*0180*) 06100H,007FAH,00800H,00008H,06724H,03600H,00243H,00038H,
  75. (*0190*) 06700H,0FF70H,01382H,07000H,01381H,07001H,05447H,06100H,
  76. (*01A0*) 00748H,06100H,00526H,0220DH,04841H,02A41H,04E75H,06100H,
  77. (*01B0*) 0051AH,06100H,00734H,01382H,07000H,01381H,07001H,05447H,
  78. (*01C0*) 04E75H,045FAH,00792H,00800H,00008H,0670AH,06100H,0079AH,
  79. (*01D0*) 014BCH,00004H,06008H,06100H,00788H,014BCH,00002H,06100H,
  80. (*01E0*) 006D6H,07441H,06100H,00796H,060C4H,0123AH,0076AH,00C01H,
  81. (*01F0*) 00004H,06704H,03418H,06002H,02418H,06100H,007B2H,06100H,
  82. (*0200*) 006E8H,06000H,004C6H,06100H,006FAH,01381H,070FFH,06100H,
  83. (*0210*) 006D8H,06000H,004B6H,07201H,03418H,06100H,00792H,06100H,
  84. (*0220*) 006C8H,06000H,0069EH,07202H,03418H,06100H,00782H,06100H,
  85. (*0230*) 006B8H,06000H,006A4H,00800H,00005H,06712H,06100H,0073EH,
  86. (*0240*) 013BCH,00044H,07000H,01381H,07001H,05447H,0600CH,06100H,
  87. (*0250*) 006A2H,06100H,006AEH,01381H,070FFH,06100H,0068CH,06100H,
  88. (*0260*) 00718H,013BCH,00044H,07000H,01381H,07001H,05447H,04E75H,
  89. (*0270*) 03200H,00241H,00F00H,0EE49H,048C1H,045FAH,00094H,0D5C1H,
  90. (*0280*) 0139AH,07000H,01392H,07001H,05447H,00800H,0000DH,0673EH,
  91. (*0290*) 01200H,06712H,04881H,013BCH,0002EH,07000H,013BCH,00053H,
  92. (*02A0*) 07001H,05447H,06004H,03218H,05541H,06100H,0060AH,048C1H,
  93. (*02B0*) 013BCH,0004CH,07000H,05247H,02408H,0D481H,02342H,00004H,
  94. (*02C0*) 008E9H,00000H,00003H,0D48CH,07203H,06000H,006E2H,04A01H,
  95. (*02D0*) 0660CH,013BCH,00054H,070FEH,013BCH,00020H,070FFH,00C01H,
  96. (*02E0*) 00002H,0660CH,013BCH,00052H,070FEH,013BCH,00041H,070FFH,
  97. (*02F0*) 06100H,005C4H,06100H,00682H,013BCH,00044H,07000H,01381H,
  98. (*0300*) 07001H,013BCH,0002CH,07002H,05647H,03218H,05541H,0609EH,
  99. (*0310*) 05241H,05352H,04849H,04C53H,04343H,04353H,04E45H,04551H,
  100. (*0320*) 05643H,05653H,0504CH,04D49H,04745H,04C54H,04754H,04C45H,
  101. (*0330*) 03418H,07201H,06100H,006C4H,06100H,005AEH,06000H,0038CH,
  102. (*0340*) 06100H,0063AH,013BCH,00044H,07000H,01381H,07001H,05447H,
  103. (*0350*) 06100H,00596H,06000H,00374H,06100H,00622H,07444H,06000H,
  104. (*0360*) 0FE4EH,045FAH,005F2H,014BCH,00002H,060ECH,06100H,0060AH,
  105. (*0370*) 0610CH,05C47H,06100H,00606H,06104H,05A47H,04E75H,04881H,
  106. (*0380*) 048C1H,0E149H,00081H,02841H,00029H,02381H,07000H,033BCH,
  107. (*0390*) 02B2CH,07004H,04E75H,06100H,005E0H,01401H,06100H,005DEH,
  108. (*03A0*) 01800H,00204H,000F8H,0263CH,02C44H,02044H,00C04H,00040H,
  109. (*03B0*) 06718H,0263CH,02C41H,02041H,00C04H,00048H,0670CH,0163CH,
  110. (*03C0*) 00044H,00C04H,00088H,06600H,0FD3AH,01383H,07000H,01381H,
  111. (*03D0*) 07001H,04843H,03383H,07002H,01382H,07004H,05A47H,04E75H,
  112. (*03E0*) 00800H,00006H,06706H,06100H,00580H,06004H,06100H,00572H,
  113. (*03F0*) 06100H,004C4H,06100H,00582H,013BCH,00044H,07000H,01381H,
  114. (*0400*) 07001H,05447H,04E75H,06100H,00570H,013BCH,00041H,07000H,
  115. (*0410*) 01381H,07001H,013BCH,0002CH,07002H,013BCH,00023H,07003H,
  116. (*0420*) 05A47H,03418H,07202H,06000H,005D2H,03400H,0EC4AH,00202H,
  117. (*0430*) 000C0H,07201H,00C02H,00040H,06606H,06100H,0051CH,0601CH,
  118. (*0440*) 07202H,00C02H,000C0H,06606H,06100H,00516H,0600EH,07204H,
  119. (*0450*) 00C02H,00080H,06600H,0FCACH,06100H,0050EH,045FAH,004F8H,
  120. (*0460*) 01481H,06100H,00452H,06100H,00262H,06100H,0047CH,06000H,
  121. (*0470*) 0026EH,045FAH,004E2H,014BCH,00001H,06100H,0024EH,06100H,
  122. (*0480*) 00468H,06000H,0043EH,045FAH,004CEH,014BCH,00002H,06100H,
  123. (*0490*) 0023AH,06100H,00454H,06000H,00440H,045FAH,004BAH,014BCH,
  124. (*04A0*) 00002H,06100H,00434H,06100H,00440H,06000H,0021EH,06100H,
  125. (*04B0*) 004C8H,00800H,00003H,06714H,06124H,06100H,0042CH,013BCH,
  126. (*04C0*) 00041H,07000H,01381H,07001H,05447H,04E75H,013BCH,00041H,
  127. (*04D0*) 07000H,01381H,07001H,013BCH,0002CH,07002H,05647H,013BCH,
  128. (*04E0*) 00055H,07000H,013BCH,00053H,07001H,013BCH,00050H,07002H,
  129. (*04F0*) 05647H,04E75H,00800H,0000CH,06708H,07202H,06100H,00462H,
  130. (*0500*) 06006H,07204H,06100H,00462H,045FAH,0044CH,01481H,06100H,
  131. (*0510*) 003A6H,06100H,001B6H,06100H,003D0H,06100H,00460H,013BCH,
  132. (*0520*) 00041H,07000H,01381H,07001H,05447H,04E75H,0612AH,03F01H,
  133. (*0530*) 0323CH,00038H,0C240H,00C41H,00020H,06704H,008C0H,0000AH,
  134. (*0540*) 0321FH,06130H,06100H,003A2H,06000H,00180H,0610AH,06100H,
  135. (*0550*) 0017AH,06100H,00394H,0601CH,00800H,00006H,06606H,06100H,
  136. (*0560*) 00400H,06004H,06100H,00402H,06100H,0034CH,03218H,06700H,
  137. (*0570*) 0FB92H,04E75H,07A44H,0742FH,0762EH,07807H,04206H,05202H,
  138. (*0580*) 05203H,00800H,0000AH,06604H,0E359H,06002H,0E259H,06412H,
  139. (*0590*) 04A06H,0660AH,01385H,07000H,01382H,07001H,05447H,05206H,
  140. (*05A0*) 06024H,04A06H,06720H,00C06H,00001H,06710H,013BCH,0002DH,
  141. (*05B0*) 07000H,01385H,07001H,01383H,07002H,05647H,013BCH,0002FH,
  142. (*05C0*) 07000H,05247H,04206H,051CCH,0FFB6H,00C06H,00001H,06F10H,
  143. (*05D0*) 013BCH,0002DH,07000H,01385H,07001H,01382H,07002H,05647H,
  144. (*05E0*) 00C05H,00044H,06620H,07A41H,00C31H,0002FH,070FFH,06708H,
  145. (*05F0*) 013BCH,0002FH,07000H,05207H,00C31H,00044H,070FDH,06702H,
  146. (*0600*) 05347H,06000H,0FF72H,00C31H,0002FH,070FFH,06602H,05347H,
  147. (*0610*) 04E75H,00800H,00006H,06606H,06100H,00346H,06004H,06100H,
  148. (*0620*) 00348H,06100H,00292H,06100H,00350H,01601H,00800H,00007H,
  149. (*0630*) 0661AH,06100H,00194H,06100H,002B0H,06100H,00340H,013BCH,
  150. (*0640*) 00044H,07000H,01381H,07001H,05447H,04E75H,061ECH,06100H,
  151. (*0650*) 00298H,06000H,00174H,01400H,07201H,06100H,0039EH,060D6H,
  152. (*0660*) 03200H,0EE49H,00281H,00000H,0001EH,045FAH,00016H,0D5C1H,
  153. (*0670*) 0139AH,07000H,01392H,07001H,05447H,06100H,0023AH,06000H,
  154. (*0680*) 0004AH,05420H,04620H,04849H,04C53H,04343H,04353H,04E45H,
  155. (*0690*) 04551H,05643H,05653H,0504CH,04D49H,04745H,04C54H,04754H,
  156. (*06A0*) 04C45H,03418H,07202H,06000H,00306H,01400H,00202H,0000FH,
  157. (*06B0*) 07201H,06100H,00346H,04E75H,06100H,002BEH,013BCH,00041H,
  158. (*06C0*) 07000H,01381H,07001H,05447H,04E75H,048E7H,0FE00H,02C0DH,
  159. (*06D0*) 01200H,06130H,04846H,02A46H,04CDFH,0007FH,04E75H,048E7H,
  160. (*06E0*) 0FE00H,02C0DH,03200H,0E049H,0E249H,00241H,00007H,03400H,
  161. (*06F0*) 0E64AH,00242H,00038H,08242H,0610AH,04846H,02A46H,04CDFH,
  162. (*0700*) 0007FH,04E75H,03C3CH,00800H,01401H,01601H,00203H,00007H,
  163. (*0710*) 00603H,00030H,07844H,00201H,00038H,06770H,0E24EH,07841H,
  164. (*0720*) 00C01H,00008H,06766H,0E24EH,00C01H,00010H,0676AH,0E24EH,
  165. (*0730*) 00C01H,00018H,06700H,0007CH,0E24EH,00C01H,00020H,06700H,
  166. (*0740*) 0007EH,0E24EH,00C01H,00028H,06700H,0007EH,0E24EH,00C01H,
  167. (*0750*) 00030H,06700H,00080H,0E24EH,00202H,00007H,06700H,000C4H,
  168. (*0760*) 0E24EH,00C02H,00001H,06700H,000CAH,0E24EH,00C02H,00002H,
  169. (*0770*) 06700H,000C6H,0E24EH,00C02H,00003H,06700H,000FAH,0E24EH,
  170. (*0780*) 00C02H,00004H,06700H,0011AH,06000H,0F978H,01384H,07000H,
  171. (*0790*) 01383H,07001H,05447H,04E75H,013BCH,00028H,07000H,013BCH,
  172. (*07A0*) 00041H,07001H,01383H,07002H,013BCH,00029H,07003H,05847H,
  173. (*07B0*) 04E75H,061E4H,013BCH,0002BH,07000H,05247H,04E75H,013BCH,
  174. (*07C0*) 0002DH,07000H,05247H,060D0H,05247H,03418H,07202H,06100H,
  175. (*07D0*) 0022AH,060C4H,05247H,03418H,07201H,06100H,0021EH,061B8H,
  176. (*07E0*) 013BCH,0002CH,070FFH,07644H,00802H,0000FH,06702H,07641H,
  177. (*07F0*) 01383H,07000H,03602H,00243H,07000H,0E04BH,0E84BH,00603H,
  178. (*0800*) 00030H,01383H,07001H,05447H,00802H,0000BH,06706H,06100H,
  179. (*0810*) 00158H,06004H,06100H,0014AH,013BCH,00029H,07000H,05247H,
  180. (*0820*) 04E75H,07202H,03418H,013BCH,00024H,07000H,05247H,06000H,
  181. (*0830*) 0017EH,02418H,07204H,060EEH,013BCH,0004CH,07000H,05247H,
  182. (*0840*) 03418H,048C2H,0D488H,05582H,02342H,00004H,008E9H,00001H,
  183. (*0850*) 00003H,0D48CH,07203H,06100H,00156H,013BCH,00028H,07000H,
  184. (*0860*) 013BCH,00050H,07001H,013BCH,00043H,07002H,013BCH,00029H,
  185. (*0870*) 07003H,05847H,04E75H,013BCH,0004CH,07000H,05247H,03410H,
  186. (*0880*) 04882H,048C2H,0D488H,02342H,00004H,008E9H,00001H,00003H,
  187. (*0890*) 07203H,0D48CH,06100H,00118H,061C0H,03418H,06000H,0FF42H,
  188. (*08A0*) 06150H,0123AH,000B2H,00C01H,00004H,06706H,03418H,06000H,
  189. (*08B0*) 000FEH,02418H,060F8H,02F01H,07230H,06100H,001A4H,0221FH,
  190. (*08C0*) 04E75H,013BCH,00043H,07000H,013BCH,00043H,07001H,013BCH,
  191. (*08D0*) 00052H,07002H,05647H,04E75H,013BCH,00053H,07000H,013BCH,
  192. (*08E0*) 00052H,07001H,05447H,04E75H,013BCH,0002CH,07000H,05247H,
  193. (*08F0*) 04E75H,013BCH,00023H,07000H,013BCH,00024H,07001H,05447H,
  194. (*0900*) 04E75H,03200H,0E049H,0E249H,00201H,00007H,00601H,00030H,
  195. (*0910*) 00C01H,00030H,06602H,07238H,04E75H,048E7H,04080H,01200H,
  196. (*0920*) 00201H,000C0H,06710H,00C01H,00040H,06710H,00C01H,00080H,
  197. (*0930*) 06710H,06000H,0F7CEH,06120H,07201H,0600AH,06122H,07202H,
  198. (*0940*) 06004H,06124H,07204H,06100H,0FF6EH,041FAH,0000AH,01081H,
  199. (*0950*) 04CDFH,00102H,04E75H,00100H,013BCH,00042H,07001H,0600EH,
  200. (*0960*) 013BCH,00057H,07001H,06006H,013BCH,0004CH,07001H,013BCH,
  201. (*0970*) 0002EH,07000H,05447H,04E75H,03200H,06006H,03200H,0E049H,
  202. (*0980*) 0E249H,00281H,00000H,00007H,00601H,00030H,04E75H,04A52H,
  203. (*0990*) 06714H,03200H,0C25AH,0B25AH,06710H,0081AH,00007H,067FAH,
  204. (*09A0*) 0588AH,05446H,060E8H,07201H,04E75H,07200H,04E75H,048E7H,
  205. (*09B0*) 0E080H,04881H,02002H,041FAH,00032H,03F01H,05941H,06706H,
  206. (*09C0*) 0E198H,05241H,066FAH,0321FH,05341H,0610CH,0610AH,051C9H,
  207. (*09D0*) 0FFFAH,04CDFH,00107H,04E75H,0E998H,01400H,00242H,0000FH,
  208. (*09E0*) 013B0H,02000H,07000H,05247H,04E75H,03031H,03233H,03435H,
  209. (*09F0*) 03637H,03839H,04142H,04344H,04546H,048E7H,03000H,05347H,
  210. (*0A00*) 07600H,00C01H,00001H,06602H,04882H,00802H,0000FH,0670AH,
  211. (*0A10*) 013BCH,0002DH,07000H,05247H,04442H,048C2H,084FCH,02710H,
  212. (*0A20*) 0612AH,04842H,048C2H,084FCH,003E8H,06120H,04842H,048C2H,
  213. (*0A30*) 084FCH,00064H,06116H,04842H,048C2H,084FCH,0000AH,0610CH,
  214. (*0A40*) 07601H,04842H,06106H,04CDFH,0000CH,04E75H,06702H,07601H,
  215. (*0A50*) 04A83H,0670AH,00602H,00030H,01382H,07000H,05247H,04E75H,
  216. (*0A60*) 0BE41H,0670AH,013BCH,00020H,07000H,05247H,060F2H,04E75H,
  217. (*0A70*) 0F6B8H,0F70CH,0F74EH,0F774H,0F78EH,0F6AEH,0F702H,0F76CH,
  218. (*0A80*) 0F796H,0F7A4H,0FC46H,0FC44H,0F7AEH,0F7ACH,0F7E4H,0F8A2H,
  219. (*0A90*) 0F8B0H,0F89EH,0F8ACH,0F89AH,0F8A8H,0F896H,0F8A4H,0F8C4H,
  220. (*0AA0*) 0FC2AH,0F8B6H,0F71EH,0F744H,0F8C4H,0F7C6H,0F8B6H,0F8B4H,
  221. (*0AB0*) 0F890H,0F738H,0F762H,0F770H,0F8DEH,0F926H,0FC0CH,0FC0CH,
  222. (*0AC0*) 0FC0AH,0F720H,0F942H,0FC04H,0FC02H,0F76CH,0F76AH,0F95CH,
  223. (*0AD0*) 0F9A2H,0F9B4H,0F9C6H,0F9D8H,0FA1CH,0FA52H,0FA70H,0FB34H,
  224. (*0AE0*) 0FB76H,0F880H,0F87EH,0FBE4H,0FBE2H,0FBE0H,0FBDCH,0FBDCH,
  225. (*0AF0*) 0F68EH,0F6F8H,0F722H,0F730H,0FBD2H,0FBCEH,0FBCEH,0FBCCH,
  226. (*0B00*) 0F736H,0F734H,0FBC6H,0FBC4H,0F72EH,0F72CH,0FBBCH,0FBBAH,
  227. (*0B10*) 0FBB8H,0F616H,0FB4CH,0FB8CH,0F666H,0F6A8H,0F6CEH,0F6E8H,
  228. (*0B20*) 0F608H,0F8CEH,0FBA6H,0FB84H,0FBA0H,0FBA0H,0FB8CH,0F1F0H,
  229. (*0B30*) 0C100H,04142H,043C4H,01880H,00880H,0F000H,0D000H,04144H,
  230. (*0B40*) 044A0H,02FFFH,00BF8H,0F0C0H,0D0C0H,04144H,044C1H,00FFFH,
  231. (*0B50*) 00400H,0FF00H,00600H,04144H,044C9H,06BF8H,00001H,0F100H,
  232. (*0B60*) 05000H,04144H,044D1H,06FF8H,00001H,0F130H,0D100H,04144H,
  233. (*0B70*) 044D8H,02880H,00880H,0F000H,0C000H,0414EH,044A0H,02BFFH,
  234. (*0B80*) 003F8H,0FF00H,00200H,0414EH,044C9H,06BF8H,00001H,0FFFFH,
  235. (*0B90*) 0023CH,0414EH,044C9H,05001H,00000H,0FFFFH,0027CH,0414EH,
  236. (*0BA0*) 044C9H,05001H,00000H,0FFC0H,0E1C0H,04153H,04CA0H,013F8H,
  237. (*0BB0*) 00800H,0FFC0H,0E0C0H,04153H,052A0H,013F8H,00800H,0F118H,
  238. (*0BC0*) 0E100H,04153H,04CA0H,02801H,00800H,0F118H,0E000H,04153H,
  239. (*0BD0*) 052A0H,02801H,00800H,0F000H,06000H,042A0H,00000H,00000H,
  240. (*0BE0*) 0FFC0H,00840H,04243H,048C7H,05BF8H,00001H,0F1C0H,00140H,
  241. (*0BF0*) 04243H,048C7H,01BF8H,00800H,0FFC0H,00880H,04243H,04CD2H,
  242. (*0C00*) 05BF8H,00001H,0F1C0H,00180H,04243H,04CD2H,01BF8H,00800H,
  243. (*0C10*) 0FFC0H,008C0H,04253H,045D4H,05BF8H,00001H,0F1C0H,001C0H,
  244. (*0C20*) 04253H,045D4H,01BF8H,00800H,0FFC0H,00800H,04254H,053D4H,
  245. (*0C30*) 05BFEH,00001H,0F1C0H,00100H,04254H,053D4H,01BFEH,00001H,
  246. (*0C40*) 0F1C0H,04180H,04348H,04BA0H,01BFFH,00800H,0FF00H,04200H,
  247. (*0C50*) 0434CH,052A0H,02BF8H,00000H,0F100H,0B000H,0434DH,050A0H,
  248. (*0C60*) 02FFFH,00800H,0F0C0H,0B0C0H,0434DH,050C1H,00FFFH,00400H,
  249. (*0C70*) 0FF00H,00C00H,0434DH,050C9H,06BF8H,00001H,0F138H,0B108H,
  250. (*0C80*) 0434DH,050CDH,02100H,00100H,0F0F8H,050C8H,044C2H,00000H,
  251. (*0C90*) 00000H,0F1C0H,081C0H,04449H,056D3H,01BFFH,00800H,0F1C0H,
  252. (*0CA0*) 080C0H,04449H,056D5H,01BFFH,00800H,0F100H,0B100H,0454FH,
  253. (*0CB0*) 052A0H,02BF8H,00800H,0FF00H,00A00H,0454FH,052C9H,06BF8H,
  254. (*0CC0*) 00001H,0FFFFH,00A3CH,0454FH,052C9H,05001H,00000H,0FFFFH,
  255. (*0CD0*) 00A7CH,0454FH,052C9H,05001H,00000H,0F100H,0C100H,04558H,
  256. (*0CE0*) 047A0H,01C00H,00C00H,0FFB8H,04880H,04558H,054A0H,00800H,
  257. (*0CF0*) 00000H,0FFFFH,04AFCH,0494CH,04C45H,04741H,04CA0H,00000H,
  258. (*0D00*) 00000H,0FFC0H,04EC0H,04A4DH,050A0H,0127EH,00000H,0FFC0H,
  259. (*0D10*) 04E80H,04A53H,052A0H,0127EH,00000H,0F1C0H,041C0H,04C45H,
  260. (*0D20*) 041A0H,0127EH,00400H,0FFF8H,04E50H,04C49H,04ECBH,01400H,
  261. (*0D30*) 00000H,0FFC0H,0E3C0H,04C53H,04CA0H,013F8H,00000H,0FFC0H,
  262. (*0D40*) 0E2C0H,04C53H,052A0H,013F8H,00000H,0F118H,0E108H,04C53H,
  263. (*0D50*) 04CA0H,02000H,00000H,0F118H,0E008H,04C53H,052A0H,02000H,
  264. (*0D60*) 00000H,0C000H,00000H,04D4FH,056C5H,00BF8H,00FFFH,0FFC0H,
  265. (*0D70*) 044C0H,04D4FH,056C5H,01BFFH,00000H,0FFC0H,046C0H,04D4FH,
  266. (*0D80*) 056C5H,01BFFH,00000H,0FFC0H,040C0H,04D4FH,056C5H,01BF8H,
  267. (*0D90*) 00000H,0FFF0H,04E60H,04D4FH,056C5H,01400H,00400H,0E1C0H,
  268. (*0DA0*) 02040H,04D4FH,05645H,041A0H,00FFFH,00400H,0FF80H,04880H,
  269. (*0DB0*) 04D4FH,05645H,04DA0H,002F8H,00C00H,0FF80H,04C80H,04D4FH,
  270. (*0DC0*) 05645H,04DA0H,0037EH,00C00H,0F138H,00108H,04D4FH,05645H,
  271. (*0DD0*) 050A0H,00040H,00040H,0F100H,07000H,04D4FH,05645H,051A0H,
  272. (*0DE0*) 05001H,00800H,0F1C0H,0C1C0H,04D55H,04CD3H,01BFFH,00800H,
  273. (*0DF0*) 0F1C0H,0C0C0H,04D55H,04CD5H,01BFFH,00800H,0FFC0H,04800H,
  274. (*0E00*) 04E42H,043C4H,01BF8H,00000H,0FF00H,04400H,04E45H,047A0H,
  275. (*0E10*) 02BF8H,00000H,0FF00H,04000H,04E45H,047D8H,02BF8H,00000H,
  276. (*0E20*) 0FFFFH,04E71H,04E4FH,050A0H,00000H,00000H,0FF00H,04600H,
  277. (*0E30*) 04E4FH,054A0H,02BF8H,00000H,0F000H,08000H,04FD2H,02FFFH,
  278. (*0E40*) 00BF8H,0FF00H,00000H,04F52H,049A0H,06BF8H,00001H,0FFFFH,
  279. (*0E50*) 0003CH,04F52H,049A0H,05000H,00000H,0FFFFH,0007CH,04F52H,
  280. (*0E60*) 049A0H,05000H,00000H,0FFC0H,04840H,05045H,041A0H,0127EH,
  281. (*0E70*) 00000H,0FFFFH,04E70H,05245H,05345H,054A0H,00000H,00000H,
  282. (*0E80*) 0FFC0H,0E7C0H,0524FH,04CA0H,013F8H,00000H,0FFC0H,0E6C0H,
  283. (*0E90*) 0524FH,052A0H,013F8H,00000H,0F118H,0E118H,0524FH,04CA0H,
  284. (*0EA0*) 02801H,00800H,0F118H,0E018H,0524FH,052A0H,02801H,00800H,
  285. (*0EB0*) 0FFC0H,0E5C0H,0524FH,058CCH,023F8H,00000H,0FFC0H,0E4C0H,
  286. (*0EC0*) 0524FH,058D2H,023F8H,00000H,0F118H,0E110H,0524FH,058CCH,
  287. (*0ED0*) 013F8H,00000H,0F118H,0E010H,0524FH,058D2H,01801H,00800H,
  288. (*0EE0*) 0FFFFH,04E73H,05254H,045A0H,00000H,00000H,0FFFFH,04E77H,
  289. (*0EF0*) 05254H,052A0H,00000H,00000H,0FFFFH,04E75H,05254H,053A0H,
  290. (*0F00*) 00000H,00000H,0F1F0H,08100H,05342H,043C4H,01880H,00880H,
  291. (*0F10*) 0F0C0H,050C0H,053A0H,00BF8H,00000H,0FFFFH,04E72H,05354H,
  292. (*0F20*) 04FD0H,05000H,00000H,0F000H,09000H,05355H,042A0H,02FFFH,
  293. (*0F30*) 00BF8H,0F0C0H,090C0H,05355H,042C1H,00FFFH,00400H,0FF00H,
  294. (*0F40*) 00400H,05355H,042C9H,06BF8H,00001H,0F100H,05100H,05355H,
  295. (*0F50*) 042D1H,06FF8H,00001H,0F130H,09100H,05355H,042D8H,02880H,
  296. (*0F60*) 00880H,0FFF8H,04840H,05357H,041D0H,01000H,00000H,0FFC0H,
  297. (*0F70*) 04AC0H,05441H,053A0H,01BF8H,00000H,0FFF0H,04E40H,05452H,
  298. (*0F80*) 041D0H,05000H,00000H,0FFFFH,04E76H,05452H,04150H,056A0H,
  299. (*0F90*) 00000H,00000H,0FF00H,04A00H,05453H,054A0H,02BF8H,00000H,
  300. (*0FA0*) 0FFF8H,04E58H,0554EH,04CCBH,01000H,00000H,00000H,00000H);
  301.  
  302. END Disass;
  303.  
  304. END DisAss.
  305.  
  306.